home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1256 / tour002.co_ / tour002.co
Text File  |  1997-04-18  |  7KB  |  174 lines
  1.       *---Created with EasyCODE(COB)----------------------------------- # EASY O
  2.       *---Last modification: 01.03.1995 14:23:07----------------------- # EASY K
  3.       *This program is used for menu output.
  4.       *---------------------------------------------------------------- # EASY *
  5.       *---------------------------------------------------------------- # EASY (
  6.       *TOUR002
  7.       *---------------------------------------------------------------- # EASY *
  8.        IDENTIFICATION DIVISION.
  9.       *---------------------------------------------------------------- # EASY (
  10.       **** Identification Division ***
  11.       *---------------------------------------------------------------- # EASY *
  12.        PROGRAM-ID. TOUR002.
  13.       *
  14.       *
  15.       *       THIS PROGRAM IS USED FOR MENU OUTPUT.
  16.       *       ITS TAC : MENUOUT.
  17.       *
  18.       *
  19.       *---------------------------------------------------------------- # EASY )
  20.        ENVIRONMENT DIVISION.
  21.        DATA DIVISION.
  22.       *---------------------------------------------------------------- # EASY (
  23.       **** Data Division ***
  24.       *---------------------------------------------------------------- # EASY *
  25.       *---------------------------------------------------------------- # EASY (
  26.       **** WORKING-STORAGE Section ***
  27.       *---------------------------------------------------------------- # EASY *
  28.        WORKING-STORAGE SECTION.
  29.      77 SESSION-START    PIC X    VALUE "F".
  30.       
  31.      COPY KCOPC.
  32.      COPY KCDFC.
  33.       *                                 # EASY S
  34.       *---------------------------------------------------------------- # EASY )
  35.       *---------------------------------------------------------------- # EASY (
  36.       **** LINKAGE Section ***
  37.       *---------------------------------------------------------------- # EASY *
  38.        LINKAGE SECTION.
  39.      COPY KCKBC.
  40.         05 MENU-MESSAGE  PIC X(80).
  41.       
  42.      COPY KCPAC.
  43.       
  44.         03 OUTPUT-AREA     PIC X(89).
  45.         03 OUTPUT-MENU REDEFINES OUTPUT-AREA.
  46.           COPY MENU.
  47.       
  48.         03 ERROR-LINE REDEFINES OUTPUT-AREA.
  49.            05 RET-CODE PIC X(3).
  50.            05 OCCURRED-AT       PIC X(5).
  51.            05 OP-CODE  PIC X(4).
  52.            05 FILLER   PIC X(77).
  53.       *                                 # EASY S
  54.       *---------------------------------------------------------------- # EASY )
  55.       *---------------------------------------------------------------- # EASY )
  56.        PROCEDURE DIVISION USING KCKBC KCSPAB.
  57.       *---------------------------------------------------------------- # EASY (
  58.       **** Procedure Division ***
  59.       *---------------------------------------------------------------- # EASY *
  60.       *---------------------------------------------------------------- # EASY (
  61.       **** INIT-OPERATION ***
  62.       *---------------------------------------------------------------- # EASY *
  63.        INIT-OPERATION.
  64.        MOVE INIT TO KCOP
  65.       *                                 # EASY -
  66.        MOVE 80 TO KCLKBPRG
  67.       *                                 # EASY -
  68.        MOVE 1000 TO KCLPAB
  69.        CALL "KDCS" USING KCPAC
  70.        IF KCRCCC NOT = "000"
  71.        THEN
  72.           PERFORM ERROR-MPUT-OPERATION
  73.           PERFORM ERROR-PEND-OPERATION
  74.        END-IF
  75.        .
  76.       *                                 # EASY P
  77.       *---------------------------------------------------------------- # EASY )
  78.       *---------------------------------------------------------------- # EASY (
  79.       **** PROCESSING ***
  80.       *---------------------------------------------------------------- # EASY *
  81.        PROCESSING.
  82.        MOVE "MENU" TO TAC OF OUTPUT-MENU
  83.       *                                 # EASY -
  84.        MOVE SPACE TO FUNCTION OF OUTPUT-MENU
  85.        IF KCKNZVG = SESSION-START
  86.        THEN
  87.           MOVE SPACES TO NOTICE OF OUTPUT-MENU
  88.        ELSE
  89.           MOVE MENU-MESSAGE TO NOTICE OF OUTPUT-MENU
  90.        END-IF
  91.        MOVE 89 TO KCLM
  92.       *                                 # EASY -
  93.        MOVE "*MENU" TO KCMF
  94.       *                                 # EASY -
  95.        MOVE KCREPL TO KCDF
  96.        .
  97.       *                                 # EASY P
  98.       *---------------------------------------------------------------- # EASY )
  99.       *---------------------------------------------------------------- # EASY (
  100.       **** MPUT-OPERATION ***
  101.       *---------------------------------------------------------------- # EASY *
  102.        MPUT-OPERATION.
  103.        MOVE MPUT TO KCOP
  104.       *                                 # EASY -
  105.        MOVE "NE" TO KCOM
  106.       *                                 # EASY -
  107.        MOVE SPACES TO KCRN
  108.        CALL "KDCS" USING KCPAC, OUTPUT-AREA
  109.        IF KCRCCC > "000"
  110.        THEN
  111.           PERFORM ERROR-PEND-OPERATION
  112.        END-IF
  113.        .
  114.       *                                 # EASY P
  115.       *---------------------------------------------------------------- # EASY )
  116.       *---------------------------------------------------------------- # EASY (
  117.       **** PEND-OPERATION ***
  118.       *---------------------------------------------------------------- # EASY *
  119.        PEND-OPERATION.
  120.        MOVE PEND TO KCOP
  121.       *                                 # EASY -
  122.        MOVE "FI" TO KCOM
  123.        CALL "KDCS" USING KCPAC
  124.        .
  125.       *                                 # EASY P
  126.       *---------------------------------------------------------------- # EASY )
  127.       *---------------------------------------------------------------- # EASY (
  128.       **** ERROR-PEND-OPERATION ***
  129.       *---------------------------------------------------------------- # EASY *
  130.        ERROR-PEND-OPERATION.
  131.        MOVE PEND TO KCOP
  132.       *                                 # EASY -
  133.        MOVE "ER" TO KCOM
  134.        CALL "KDCS" USING KCPAC
  135.        .
  136.       *                                 # EASY P
  137.       *---------------------------------------------------------------- # EASY )
  138.       *---------------------------------------------------------------- # EASY (
  139.       **** ERROR-MPUT-OPERATION ***
  140.       *---------------------------------------------------------------- # EASY *
  141.        ERROR-MPUT-OPERATION.
  142.        MOVE SPACES TO ERROR-LINE
  143.       *                                 # EASY -
  144.        MOVE KCRCCC TO RET-CODE
  145.       *                                 # EASY -
  146.        MOVE " AT " TO OCCURRED-AT
  147.       *                                 # EASY -
  148.        MOVE KCOP TO OP-CODE
  149.       *                                 # EASY -
  150.        MOVE MPUT TO KCOP
  151.       *                                 # EASY -
  152.        MOVE "NE" TO KCOM
  153.       *                                 # EASY -
  154.        MOVE 12 TO KCLM
  155.       *                                 # EASY -
  156.        MOVE SPACES TO KCMF, KCRN
  157.       *                                 # EASY -
  158.        MOVE KCALARM TO KCDF
  159.        CALL "KDCS" USING KCPAC, OUTPUT-AREA
  160.        .
  161.       *                                 # EASY P
  162.       *---------------------------------------------------------------- # EASY )
  163.       *---------------------------------------------------------------- # EASY (
  164.       **** END-OF-PROGRAM ***
  165.       *---------------------------------------------------------------- # EASY *
  166.        END-OF-PROGRAM.
  167.        EXIT PROGRAM
  168.        .
  169.       *                                 # EASY P
  170.       *---------------------------------------------------------------- # EASY )
  171.       *---------------------------------------------------------------- # EASY )
  172.        END PROGRAM TOUR002.
  173.       *---------------------------------------------------------------- # EASY )
  174.